%family_name=("fred"=>"flintstone", "barney"=>"rubble", "wilma"=>"flintstone",);

$person=<STDIN>;
chomp($person);

if ($family_name{$person})
	{
	print "$person \'s family name is $family_name{$person}\n";
	}
else
{print "No this person \n";}